library(tidyverse)


s1 <- read_rds("Study 1/blm_replication_dat.rds")


write_csv(s1, "Study 1/s1.csv")


s2 <- read_rds("Study 2/mar_replication_dat.rds")
write_csv(s2, "Study 2/s2.csv")

load("Study 3/processed_data/studies.rda")

s3e1 <- study1
s3e4 <- study4

write_csv(s3e1, "Study 3/processed_data/raw dat/s3e1.csv")
write_csv(s3e4, "Study 3/processed_data/raw dat/s3e4.csv")

#Study 4 already correctly named 

